home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / OStrCmpNC.ass < prev    next >
Encoding:
Text File  |  1980-02-04  |  592 b   |  44 lines
  1.  
  2. # OStrCmpNC(r3:PTR TO CHAR,r4:PTR TO CHAR,r5=-1:LONG)
  3.  
  4.     .text
  5.     .global    _OStrCmpNC
  6.  
  7. _OStrCmpNC:
  8.     subi    r3,r3,1
  9.     subi    r4,r4,1
  10. .loop:    lbzu    r7,1(r3)
  11.     lbzu    r6,1(r4)
  12.  
  13.     cmplwi    r7,91
  14.     bgt    .next1
  15.     cmplwi    r7,65
  16.     blt    .next1
  17.     addi    r7,r7,32
  18. .next1:
  19.     cmplwi    r6,91
  20.     bgt    .next2
  21.     cmplwi    r6,65
  22.     blt    .next2
  23.     addi    r6,r6,32
  24. .next2:
  25.     cmpw    r6,r7
  26.     bne    .nosame        # strings are different
  27.     mr.    r7,r7        # zero (eos) byte?
  28.     beq    .same
  29.     subi    r5,r5,1
  30.     mr.    r5,r5
  31.     bne    .loop
  32.  
  33. .same:    li    r3,0
  34.     blr
  35. .nosame:    cmpw    r6,r7
  36.     bgt    .greater
  37.     li    r3,-1
  38.     blr
  39. .greater:    li    r3,1
  40.     blr
  41.  
  42.     .type    _OStrCmpNC,@function
  43.     .size    _OStrCmpNC,$-_OStrCmpNC
  44.